COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C     	MAIN PROGRAM
C00004 ENDMK
C⊗;
C     	MAIN PROGRAM
	COMMON FREQ(3,0/50,100),FUNC(100),AMP(100),II(1),IJJ(4000)
5	TYPE 6,C,XM,ZI1,ZI2
6	FORMAT('+CURRENT VALUE OF PARAMETERS=',4(F9.2)/)
10	TYPE 11
11	FORMAT('+1 TO CHANGE PARAMETERS'/)
	ACCEPT 100,X
	IF(X.NE.1.0)GO TO 447
	TYPE 445
445	FORMAT('+TYPE CAR,MOD,I1,I2'/)
	ACCEPT 100,C,XM,ZI1,ZI2
447	TYPE 12
12	FORMAT('+1 TO CHANGE INDX FUNCTION'/)
	ACCEPT 100,Y
	IF(Y.NE.1.0)GO TO 102
	TYPE 446
446	FORMAT('+NOW GENERATE INDEX FUNCTION'/)
	CALL GEN(FUNC)
100	FORMAT(4F)
102	IF(X.NE.1.0.AND.Y.NE.1.0)GO TO 301
	DO 30 I=1,3
	DO 30 J=0,50
	DO 30 K=1,100
30	FREQ(I,J,K)=99999.0
	FREQ(1,50,1)=0.0
	DO 300 IS=1,100
	CI=ZI1+(ZI2-ZI1)*FUNC(IS)
	IF(CI.LT..08)CI=0.0
300	CALL SIDEBANDS(C,XM,CI,IS)
301	CALL DISP(C,XM,ZI1,ZI2)
	MAX=FREQ(1,50,1)
C	PRINT101,(((FREQ(K,L,M),K=1,3),L=0,MAX),M=1,50)
101	FORMAT(1H (3F/))
	GO TO 5
	END